home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol160 / usingthe.bas (.txt) < prev   
Encoding:
GW-BASIC  |  1986-12-16  |  26.4 KB  |  776 lines
  1. 10  REM Documentation for the Genealogy ON DISPLAY Programs
  2. 20  REM All data is in the form of DATA statements.
  3. 30  REM By:  Melvin O. Duke.  Updated August 1985.
  4. 40  DATA Genealogy
  5. 50  DATA User's Manual
  6. 60  DATA -5
  7. 70  DATA 1
  8. 80  INDENT = 0
  9. 90  DASHES$ = "+"+STRING$(54,45)+"+"
  10. 100  TRIM.LINE$ = "(Trim-line)"
  11. 110  REM Program begins here
  12. 120  READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
  13. 130  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  14. 140  GOSUB 500  'For trim line and heading space
  15. 150  FOR I = 1 TO 6 : LPRINT : NEXT I
  16. 160  LPRINT CHR$(14);  'Set Expanded Print
  17. 170  LPRINT TAB(TAB.POS-2);TITLE$
  18. 180  LPRINT CHR$(18);  'Return to normal
  19. 190  FOR I = 1 TO 3 : LPRINT : NEXT I
  20. 200  LPRINT CHR$(27); "E"; 'Set Emphasized mode
  21. 210  LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  22. 220  LPRINT CHR$(27); "F"; 'Return to normal
  23. 222  LPRINT : LPRINT : LPRINT
  24. 224  LPRINT TAB(TAB.POS+11);"Version 3.1"
  25. 230  FOR I = 1 TO 11 : LPRINT : NEXT I
  26. 240  LPRINT TAB(TAB.POS+10); DOC.NAME$
  27. 250  LINE.NO = LINE.NO + 27
  28. 260  '
  29. 270  READ REPLY$
  30. 280  IF LEFT$(REPLY$,1) = "." THEN GOSUB 850: GOTO 270
  31. 290  IF LINE.NO > 44 THEN GOSUB 610
  32. 300  REM Print the line if not a command
  33. 303  REM First, change tildes to quotes
  34. 304  FOR Q = 1 TO LEN(REPLY$)
  35. 305   IF MID$(REPLY$,Q,1)="~"THEN MID$(REPLY$,Q,1)=CHR$(34)
  36. 306  NEXT Q
  37. 310  LPRINT TAB(TAB.POS);REPLY$
  38. 320  LINE.NO = LINE.NO + 1
  39. 330  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  40. 340  GOTO 270
  41. 350  REM Data for the Copyright Page
  42. 354  DATA ".pa"
  43. 358  DATA "Anyone may request a copy of these"
  44. 362  DATA "programs by sending a blank, double-"
  45. 366  DATA "sided, double-density diskette to the"
  46. 370  DATA "author of the programs."
  47. 378  DATA ".sp"
  48. 382  DATA "An addressed, postage-paid return"
  49. 386  DATA "mailer must accompany the diskette (no"
  50. 390  DATA "exceptions, please).
  51. 394  DATA ".sp"
  52. 398  DATA "A copy of the programs with documenta-"
  53. 402  DATA "tion will be sent by return mail."
  54. 410  DATA ".vt 2"
  55. 415  DATA "Users are encouraged to copy and share"
  56. 420  DATA "the programs with others."
  57. 430  DATA ".vt 6"
  58. 434  DATA "If you are using these programs, and"
  59. 438  DATA "finding them of value, your contribution"
  60. 442  DATA "($35 suggested) will be anticipated."
  61. 446  DATA ".sp"
  62. 450  DATA "Melvin O. Duke"
  63. 454  DATA "P. O. Box 20836"
  64. 458  DATA "San Jose, CA  95160"
  65. 462  DATA ".vt 4"
  66. 466  DATA "Copyright (c) 1983, 1984, 1985, by:"
  67. 470  DATA "Melvin O. Duke."
  68. 474  DATA ".sp"
  69. 478  DATA "All rights reserved."
  70. 482  '
  71. 500  REM Top of each page routine
  72. 510  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  73. 520  LPRINT
  74. 530  LPRINT TAB(30); TRIM.LINE$
  75. 540  LPRINT DASHES$ 'Dashes
  76. 550  FOR I = 1 TO 6
  77. 560   LPRINT
  78. 570  NEXT I
  79. 580  LINE.NO = LINE.NO + 6
  80. 590  RETURN
  81. 600  '
  82. 610  REM Bottom of each page Routine
  83. 620  IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 740
  84. 630  LPRINT TAB(TAB.POS); STRING$(40,45)  'on line 46
  85. 640  LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 3.1" 'on line 47
  86. 650  IF PAGE.NO MOD 2 = 1 THEN 690
  87. 660  LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  88. 670  LPRINT TAB(TAB.POS+27);"User's Manual"
  89. 680  GOTO 740
  90. 690  LPRINT TAB(TAB.POS); "User's Manual";
  91. 700  IF PAGE.NO < 10 THEN DELTA = 34
  92. 710  IF PAGE.NO >  9 THEN DELTA = 33
  93. 720  IF PAGE.NO > 99 THEN DELTA = 32
  94. 730  LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  'on line 48
  95. 740  LPRINT : LPRINT : LPRINT
  96. 750  LPRINT DASHES$ 'dashes after 51
  97. 760  LPRINT TAB(30); TRIM.LINE$
  98. 770  LPRINT CHR$(12);
  99. 780  PAGE.NO = PAGE.NO + 1
  100. 790  LINE.NO = 1
  101. 800  IF REPLY$ = ".eof" THEN 820  'Bypass after last page
  102. 810  GOSUB 500  'For top of next page
  103. 820  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  104. 830  RETURN
  105. 840  '
  106. 850  REM Command Processor
  107. 860  IF LEFT$(REPLY$,3) = ".h1" THEN 960
  108. 870  IF LEFT$(REPLY$,3) = ".h2" THEN 1100
  109. 880  IF LEFT$(REPLY$,3) = ".h3" THEN 1210
  110. 890  IF LEFT$(REPLY$,3) = ".sp" THEN 1320
  111. 900  IF LEFT$(REPLY$,4) = ".eof" THEN 1370
  112. 910  IF LEFT$(REPLY$,3) = ".pa" THEN 1410
  113. 915  IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
  114. 920  IF LEFT$(REPLY$,3) = ".vt" THEN 1480
  115. 930  IF LEFT$(REPLY$,3) = ".pk" THEN 1590
  116. 940  IF LEFT$(REPLY$,3) = ".in" THEN 1720
  117. 950  STOP
  118. 960  REM Head 1 Processor
  119. 970  FOR I = LINE.NO TO 44
  120. 980   LPRINT
  121. 990  NEXT I
  122. 1000  GOSUB 610  'Bottom of page Routine
  123. 1010  IF PAGE.NO MOD 2 = 0 THEN GOSUB 1410  'For h1 on Odd pages
  124. 1020  LPRINT CHR$(14);  'Set expanded print
  125. 1030  IF PAGE.NO MOD 2 = 0 THEN ADJUST = -4 ELSE ADJUST = -7
  126. 1040  LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  127. 1050  LPRINT CHR$(18);  'Return to normal
  128. 1060  LINE.NO = LINE.NO+1
  129. 1070  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  130. 1080  RETURN
  131. 1090  '
  132. 1100  REM Head 2 Processor
  133. 1110  IF LINE.NO = 7 THEN 1130 'skip spacing if at top of page
  134. 1120  IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  135. 1130  LPRINT CHR$(27); "E"; 'Set emphasized print
  136. 1140  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  137. 1150  LPRINT CHR$(27); "F"; 'Return to normal
  138. 1160  LPRINT
  139. 1170  LINE.NO = LINE.NO + 2
  140. 1180  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  141. 1190  RETURN
  142. 1200  '
  143. 1210  REM Head 3 Processor
  144. 1220  IF LINE.NO = 7 THEN 1240 'skip spacing if at top of page
  145. 1230  IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  146. 1240  LPRINT CHR$(27); "E"; 'Set emphasized print
  147. 1250  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  148. 1260  LPRINT CHR$(27); "F"; 'Return to normal
  149. 1270  LPRINT
  150. 1280  LINE.NO = LINE.NO + 2
  151. 1290  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  152. 1300  RETURN
  153. 1310  '
  154. 1320  REM Single Space Processor
  155. 1330  IF LINE.NO = 7 THEN 1350
  156. 1340  IF LINE.NO > 44 THEN GOSUB 1410 ELSE LPRINT : LINE.NO = LINE.NO + 1
  157. 1350  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  158. 1360  RETURN
  159. 1370  REM End of File Processor
  160. 1380  GOSUB 1410 'Bottom of Page
  161. 1390  LPRINT CHR$(12);
  162. 1400  GOTO 7760
  163. 1410  REM Page Eject Processor
  164. 1420  FOR I = LINE.NO TO 44
  165. 1430   LPRINT
  166. 1440   LINE.NO = LINE.NO + 1
  167. 1450  NEXT I
  168. 1460  GOSUB 610  'Bottom of Page Processing
  169. 1470  RETURN
  170. 1480  REM Vertical Tab Processor
  171. 1490  IF LINE.NO = 7 THEN 1580
  172. 1500  IF LINE.NO > 44 THEN GOSUB 610  'End of page
  173. 1510  QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  174. 1520  FOR I = 1 TO QTY
  175. 1530   LPRINT
  176. 1540   LINE.NO = LINE.NO + 1
  177. 1550   IF LINE.NO > 44 THEN I = QTY
  178. 1560  NEXT I
  179. 1570  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  180. 1580  RETURN
  181. 1590  REM Pack Processor
  182. 1600  IF LINE.NO > 44 THEN GOSUB 610
  183. 1610  IF TAB.POS = 8 THEN ADJUST = 4
  184. 1620  IF TAB.POS = 13 THEN ADJUST = 7
  185. 1630  TAB.POS = TAB.POS + ADJUST + INDENT
  186. 1640  LPRINT CHR$(15); 'Packed printing
  187. 1650  WIDTH "lpt1:", 132 'set condensed width
  188. 1660  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  189. 1670  LPRINT CHR$(18); 'Return to normal
  190. 1680  WIDTH "lpt1:", 80  'return to normal
  191. 1690  LINE.NO = LINE.NO + 1
  192. 1700  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  193. 1710  RETURN
  194. 1720  REM Indent Processor
  195. 1730  INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  196. 1740  RETURN
  197. 2000  DATA ".h1 USING THE PROGRAMS"
  198. 2010  DATA ".pn 23"
  199. 2020  DATA ".h2 GETTING STARTED"
  200. 2030  DATA "The user should perform the following"
  201. 2040  DATA "steps in starting the Genealogy ON"
  202. 2050  DATA "DISPLAY programs.  (Note: The steps"
  203. 2060  DATA "essentially provide for making BASIC"
  204. 2070  DATA "available, and starting the menu.)"
  205. 2080  DATA ".sp
  206. 2090  DATA "1.  Insert the PC DOS diskette into"
  207. 2100  DATA "    Drive 'a:'."
  208. 2110  DATA ".sp
  209. 2120  DATA "2.  If using the PCjr, insert the"
  210. 2130  DATA "    BASIC Cartridge into either slot."
  211. 2140  DATA ".sp
  212. 2150  DATA "3.  Turn the Printer On."
  213. 2160  DATA ".sp"
  214. 2170  DATA "4.  Turn the System On."
  215. 2180  DATA ".sp"
  216. 2190  DATA "5.  Type today's date if the system"
  217. 2200  DATA "    asks the user to Enter today's date."
  218. 2210  DATA ".sp"
  219. 2220  DATA "6.  Type the correct time if the system"
  220. 2230  DATA "    asks the user to Enter the time."
  221. 2240  DATA ".sp"
  222. 2250  DATA "7.  Type: basic/s:256"
  223. 2260  DATA "          and press the enter key."
  224. 2270  DATA ".sp"
  225. 2280  DATA "Note:  The /s:256 is essential, in order"
  226. 2290  DATA "to use files whose records are as long"
  227. 2300  DATA "as those of Genealogy ON DISPLAY."
  228. 2310  DATA ".pa"
  229. 2320  DATA "Without the /s:256 the MENU program"
  230. 2330  DATA "gives an error message when it tries"
  231. 2340  DATA "to use the testfile (which has one"
  232. 2350  DATA "record which is 256 characters long)."
  233. 2360  DATA "The program is terminated, and it is"
  234. 2370  DATA "necessary to go back to DOS and to"
  235. 2380  DATA "bring up BASIC with /s:256."
  236. 2390  DATA ".sp"
  237. 2400  DATA "8.  Replace the DOS Diskette with the"
  238. 2410  DATA "    Genealogy ON DISPLAY diskette in"
  239. 2420  DATA "    Drive 'a:'."
  240. 2430  DATA ".sp"
  241. 2440  DATA "9.  Type: run ~menu~"
  242. 2450  DATA "           and press the enter key."
  243. 2460  DATA ".sp"
  244. 2470  DATA "10.  Follow any instructions which"
  245. 2480  DATA "     appear at the bottom of each"
  246. 2485  DATA "     screen."
  247. 2490  DATA ".pa"
  248. 2500  DATA ".h2 FIRST TIME USAGE"
  249. 2510  DATA ".h3 Backing up the Distribution Diskette"
  250. 2520  DATA "Good procedures indicate that upon"
  251. 2530  DATA "receipt of any program or programs, it"
  252. 2540  DATA "is highly desirable for you to make"
  253. 2550  DATA "back-up copies for your own protection."
  254. 2560  DATA "Such is surely the case with the"
  255. 2570  DATA "Genealogy ON DISPLAY programs."
  256. 2580  DATA ".h3 Preparing a New Data Diskette"
  257. 2590  DATA "Begin with a formatted diskette,"
  258. 2600  DATA "which was formatted without including"
  259. 2610  DATA "DOS (no /s).
  260. 2620  DATA ".sp"
  261. 2630  DATA "If you do not have one available,"
  262. 2640  DATA "it will be necessary to format one."
  263. 2650  DATA "Refer to FORMAT Command in the DOS"
  264. 2660  DATA "Manual."
  265. 2670  DATA ".pa"
  266. 2680  DATA ".h3 Copying the Menu Program"
  267. 2690  DATA "The Menu program must be copied to the"
  268. 2700  DATA "data diskette, so that it will be"
  269. 2710  DATA "available whenever any of the individual"
  270. 2720  DATA "programs are completed."
  271. 2730  DATA ".sp"
  272. 2740  DATA "Copy the Menu Program to the Data"
  273. 2750  DATA "diskette with the following:"
  274. 2760  DATA ".sp"
  275. 2770  DATA "1.  Bring up DOS and BASIC in the"
  276. 2780  DATA "    normal manner."
  277. 2790  DATA ".sp"
  278. 2800  DATA "2.  Insert the Program Diskette in"
  279. 2810  DATA "      Drive 'a:'."
  280. 2820  DATA ".sp"
  281. 2830  DATA "3.  Type:  load ~menu~"
  282. 2840  DATA "      and press the enter key."
  283. 2850  DATA ".sp"
  284. 2860  DATA "4.  Replace the Program Diskette with"
  285. 2870  DATA "      the Data Diskette (which was newly"
  286. 2880  DATA "      formatted) in Drive 'a:'."
  287. 2890  DATA ".sp"
  288. 2900  DATA "5.  Type:  save ~menu~"
  289. 2910  DATA "      and press the enter key."
  290. 2920  DATA ".pa"
  291. 2930  DATA ".h3 Copying the Testfile Data File"
  292. 2940  DATA "The testfile must be copied to the data"
  293. 2950  DATA "diskette, so that it will be available"
  294. 2960  DATA "for testing the /s:256 parameter when-"
  295. 2970  DATA "ever the Genealogy Programs are used."
  296. 2980  DATA ".sp"
  297. 2990  DATA "Copy the testfile to the Data Diskette"
  298. 3000  DATA "with the following:"
  299. 3010  DATA ".sp"
  300. 3020  DATA "1.  Bring up DOS (but not BASIC)."
  301. 3030  DATA ".sp"
  302. 3040  DATA "2.  Insert the Program Diskette in"
  303. 3050  DATA "      Drive 'a:' (and the Data Diskette"
  304. 3060  DATA "      in drive 'b:' if you have one)."
  305. 3070  DATA ".sp"
  306. 3080  DATA "3.  Type:  copy a:testfile b:"
  307. 3090  DATA "      and press the enter key."
  308. 3100  DATA ".sp"
  309. 3110  DATA "4.  On a one-drive system, replace the"
  310. 3120  DATA "      Program Diskette with the Data"
  311. 3130  DATA "      Diskette when asked to do so,"
  312. 3140  DATA "      and press the enter key."
  313. 3150  DATA ".pa"
  314. 3160  DATA ".h3 Creating the Data Files"
  315. 3170  DATA "Assuming that the menu program has just"
  316. 3180  DATA "been saved from the previous step (if it"
  317. 3190  DATA "has not, bring up DOS and BASIC, have the"
  318. 3200  DATA "Program Diskette in place, and type:"
  319. 3210  DATA "load ~menu~ and press the enter key."
  320. 3220  DATA "Then,) type:"
  321. 3230  DATA ".sp"
  322. 3240  DATA "  run"
  323. 3250  DATA "    and press the enter key."
  324. 3260  DATA ".sp"
  325. 3270  DATA "Follow any directions which appear at"
  326. 3280  DATA "the bottom of the screen, which will show"
  327. 3290  DATA "you which diskette to have in place in"
  328. 3300  DATA "Drive 'a:'."
  329. 3310  DATA ".sp"
  330. 3320  DATA "When the menu is displayed, select the"
  331. 3330  DATA "'creatper' program by typing:"
  332. 3340  DATA ".sp"
  333. 3350  DATA "  1"
  334. 3360  DATA "    and press the enter key."
  335. 3370  DATA ".sp"
  336. 3380  DATA "This will cause the creation of a Persons"
  337. 3390  DATA "File, which will contain 500 'empty'"
  338. 3400  DATA "records, into which you will shortly be"
  339. 3410  DATA "entering data about the persons on your"
  340. 3420  DATA "list."
  341. 3430  DATA ".sp"
  342. 3440  DATA "Next, select the 'creatmar' program, by"
  343. 3450  DATA "typing:"
  344. 3460  DATA ".sp"
  345. 3470  DATA "  2"
  346. 3480  DATA "    and press the enter key."
  347. 3490  DATA ".pa"
  348. 3500  DATA "This will cause the creation of a"
  349. 3510  DATA "Marriages File, which will contain 200"
  350. 3520  DATA "'empty' records, into which you will"
  351. 3530  DATA "shortly be entering data about the"
  352. 3540  DATA "marriages on your list."
  353. 3550  DATA ".sp"
  354. 3560  DATA "Finally, select the 'creatord' program,"
  355. 3570  DATA "by typing:"
  356. 3580  DATA ".sp"
  357. 3590  DATA "  3"
  358. 3600  DATA "    and press the enter key."
  359. 3610  DATA ".sp"
  360. 3620  DATA "This will cause the creation of the"
  361. 3630  DATA "Ordinances File, which will contain"
  362. 3640  DATA "500 'empty' records, into which you"
  363. 3650  DATA "will shortly be entering data about"
  364. 3660  DATA "ordinances for the people on your list."
  365. 3670  DATA ".h3 Caution
  366. 3680  DATA "A word of extreme caution:  Once you"
  367. 3690  DATA "have run the 'creatper' program, the"
  368. 3700  DATA "'creatmar' program, and the 'creatord'"
  369. 3710  DATA "programs, you do NOT, repeat NOT, want"
  370. 3720  DATA "to run them again (at least not"
  371. 3730  DATA "against the same files)."
  372. 3740  DATA ".sp"
  373. 3750  DATA "To do so would mean that you would"
  374. 3760  DATA "wipe-out any previous data that was in"
  375. 3770  DATA "the files at the time that you ran the"
  376. 3780  DATA "programs again."
  377. 3790  DATA ".pa"
  378. 3800  DATA ".h2 HOW TO OPERATE."
  379. 3810  DATA ".h3 Selecting an individual program.
  380. 3820  DATA "Individual programs, which perform"
  381. 3830  DATA "individual functions, are selected by"
  382. 3840  DATA "the user through the use of a menu."
  383. 3850  DATA ".sp"
  384. 3860  DATA "Begin by bringing up DOS and BASIC in"
  385. 3870  DATA "a normal manner.  Have the Program"
  386. 3880  DATA "Diskette in place.  Then type:"
  387. 3890  DATA ".sp"
  388. 3900  DATA "  run ~menu~"
  389. 3910  DATA "    and press the enter key."
  390. 3920  DATA ".sp"
  391. 3930  DATA "Following a logo on the screen, there"
  392. 3940  DATA "will appear a menu, which numbers the"
  393. 3950  DATA "individual programs, identifies their"
  394. 3960  DATA "names, and describes their functions."
  395. 3970  DATA ".sp"
  396. 3980  DATA "A user selects the individual program"
  397. 3990  DATA "which he desires by typing a number,"
  398. 4000  DATA "and then he presses the enter key.  The"
  399. 4010  DATA "program which he selected is then loaded"
  400. 4020  DATA "and run."
  401. 4030  DATA ".pa"
  402. 4040  DATA ".h3 Operating the updatper program."
  403. 4050  DATA "After selecting the updatper program,"
  404. 4060  DATA "the user should make sure that the data"
  405. 4070  DATA "diskette is in Drive 'a:'.  He should"
  406. 4080  DATA "then press any key to continue."
  407. 4090  DATA ".sp"
  408. 4100  DATA "After the logo is displayed, the user"
  409. 4110  DATA "is asked which record he wants to up-"
  410. 4120  DATA "date.  He should respond with a valid"
  411. 4130  DATA "number in the range of 1 to 500."
  412. 4140  DATA ".sp"
  413. 4150  DATA "(Note:  If you just want to find an"
  414. 4160  DATA "unused record, you may type a question-"
  415. 4170  DATA "mark.  A search will be made from the"
  416. 4180  DATA "the beginning of the file, or from the"
  417. 4190  DATA "last record which you referenced, until"
  418. 4200  DATA "an unused record is found, or the top"
  419. 4210  DATA "of the file is reached.)"
  420. 4220  DATA ".sp"
  421. 4230  DATA "The current content of the record is"
  422. 4240  DATA "shown.  If the record has never been"
  423. 4250  DATA "used, the record-number shown will be"
  424. 4260  DATA "negative.  As long as this number is"
  425. 4270  DATA "negative, it will be bypassed for any"
  426. 4280  DATA "further processing.  The user should"
  427. 4290  DATA "enter the record-number."
  428. 4300  DATA ".sp"
  429. 4310  DATA "The user is prompted for input.  He may"
  430. 4320  DATA "bypass any field by pressing the enter"
  431. 4330  DATA "key.  He may also bypass all remaining"
  432. 4340  DATA "fields by typing / and then pressing"
  433. 4350  DATA "the enter key."
  434. 4360  DATA ".sp"
  435. 4370  DATA "Note:  Dates should be entered as:"
  436. 4380  DATA "dd Mmm yyyy, such as: 06 Jan 1943."
  437. 4390  DATA ".pa"
  438. 4400  DATA "When finished with his updating, he is"
  439. 4410  DATA "asked to indicate what he wants to do"
  440. 4420  DATA "with the record.  He may either 'save'"
  441. 4430  DATA "it, he may 'forget' it, or he may make"
  442. 4440  DATA "'more' changes to the record.  As soon"
  443. 4450  DATA "as he says 'save', the record is saved"
  444. 4460  DATA "and he is once more prompted about the"
  445. 4470  DATA "next record to update."
  446. 4480  DATA ".sp"
  447. 4490  DATA "When he is through, he should indicate"
  448. 4500  DATA "that he wants to update record 0."
  449. 4510  DATA ".pa"
  450. 4520  DATA ".h3 Operating the updatmar program."
  451. 4530  DATA "After selecting the updatmar program,"
  452. 4540  DATA "the user should make sure that the"
  453. 4550  DATA "data diskette is in Drive 'a:'.  He"
  454. 4560  DATA "should then press any key to continue."
  455. 4570  DATA ".sp"
  456. 4580  DATA "After the logo is displayed, the user"
  457. 4590  DATA "is asked which record he wants to up-"
  458. 4600  DATA "date.  He should respond with a valid"
  459. 4610  DATA "number in the range of 1 to 200."
  460. 4620  DATA ".sp"
  461. 4630  DATA "(Note:  If you just want to find an"
  462. 4640  DATA "unused record, you may type a question-"
  463. 4650  DATA "mark.  A search will be made from the"
  464. 4660  DATA "the beginning of the file, or from the"
  465. 4670  DATA "last record which you referenced, until"
  466. 4680  DATA "an unused record is found, or the top"
  467. 4690  DATA "of the file is reached.)"
  468. 4700  DATA ".sp"
  469. 4710  DATA "The current content of the record is"
  470. 4720  DATA "shown.  If the record has never been"
  471. 4730  DATA "used, the record-number shown will be"
  472. 4740  DATA "negative.  As long as this number is"
  473. 4750  DATA "negative, it will be bypassed for any"
  474. 4760  DATA "further processing.  The user should"
  475. 4770  DATA "enter the record-number."
  476. 4780  DATA ".sp"
  477. 4790  DATA "The user is prompted for input.  He may"
  478. 4800  DATA "bypass any field by pressing the enter"
  479. 4810  DATA "key.  He may also bypass all remaining"
  480. 4820  DATA "fields by typing / and then pressing"
  481. 4830  DATA "the enter key."
  482. 4840  DATA ".pa"
  483. 4850  DATA "When finished with his updating, he is"
  484. 4860  DATA "asked to indicate what he wants to do"
  485. 4870  DATA "with the record.  He may either 'save'"
  486. 4880  DATA "it, he may 'forget' it, or he may make"
  487. 4890  DATA "'more' changes to the record.  As soon"
  488. 4900  DATA "as he says 'save', the record is saved"
  489. 4910  DATA "and he is once more prompted about the"
  490. 4920  DATA "next record to update."
  491. 4930  DATA ".sp"
  492. 4940  DATA "When he is through, he should indicate"
  493. 4950  DATA "that he wants to update record 0."
  494. 4960  DATA ".pa"
  495. 4970  DATA ".h2 Operating the updatord program."
  496. 4980  DATA "After selecting the updatord program,"
  497. 4990  DATA "the user should make sure that the data"
  498. 5000  DATA "diskette is in Drive 'a:'.  He should"
  499. 5010  DATA "then press any key to continue."
  500. 5020  DATA ".sp"
  501. 5030  DATA "After the logo is displayed, the user"
  502. 5040  DATA "is asked which record he wants to up-"
  503. 5050  DATA "date.  He should respond with a valid"
  504. 5060  DATA "number in the range of 1 to 500."
  505. 5070  DATA ".sp"
  506. 5080  DATA "(Note:  You cannot search for an unused"
  507. 5090  DATA "ordinances record, since it is always"
  508. 5100  DATA "associated with a person's record.)"
  509. 5110  DATA ".sp"
  510. 5120  DATA "The user is prompted for input.  He may"
  511. 5130  DATA "bypass any field by pressing the enter"
  512. 5140  DATA "key.  He may also bypass all remaining"
  513. 5150  DATA "fields by typing / and then pressing"
  514. 5160  DATA "the enter key."
  515. 5170  DATA ".sp"
  516. 5180  DATA "Dates should be entered as: dd Mmm yyyy,"
  517. 5190  DATA "such as:  05 Aug 1922."
  518. 5200  DATA ".sp"
  519. 5210  DATA "When finished with his updating, he is"
  520. 5220  DATA "asked to indicate what he wants to do"
  521. 5230  DATA "with the record.  He may either 'save'"
  522. 5240  DATA "it, he may 'forget' it, or he may make"
  523. 5250  DATA "'more' changes to the record.  As soon"
  524. 5260  DATA "as he says 'save', the record is saved"
  525. 5270  DATA "and he is once more prompted about the"
  526. 5280  DATA "next record to update."
  527. 5290  DATA ".sp"
  528. 5300  DATA "When he is through, he should indicate"
  529. 5310  DATA "that he wants to update record 0."
  530. 5320  DATA ".pa"
  531. 5330  DATA ".h3 Operating the indexpc program."
  532. 5340  DATA "The 'indexpc' program is fundamental to"
  533. 5350  DATA "the creation of a parent/child index,"
  534. 5360  DATA "which associates parents with their"
  535. 5370  DATA "children."
  536. 5380  DATA ".sp"
  537. 5390  DATA "It should be run after any additions"
  538. 5400  DATA "of persons to the Persons File, when-"
  539. 5410  DATA "ever birthdates are added or changed,"
  540. 5420  DATA "or when identification of parents have"
  541. 5430  DATA "been added or changed."
  542. 5440  DATA ".sp"
  543. 5450  DATA "Select the 'indexpc' program, and make"
  544. 5460  DATA "sure that the data diskette is in"
  545. 5470  DATA "Drive 'a:'.  Then press any key to"
  546. 5480  DATA "continue."
  547. 5490  DATA ".sp"
  548. 5500  DATA "A file named 'pcindex' will be created"
  549. 5510  DATA "on the data diskette on Drive 'a:'."
  550. 5520  DATA ".pa"
  551. 5530  DATA ".h3 Operating the indexmar program."
  552. 5540  DATA "The 'indexmar' program is fundamental"
  553. 5550  DATA "to the creation of a marriages index,"
  554. 5560  DATA "which associates spouses with each"
  555. 5570  DATA "other."
  556. 5580  DATA ".sp"
  557. 5590  DATA "It should be run after marriages are"
  558. 5600  DATA "added to the Marriages File, whenever"
  559. 5610  DATA "marriage-dates are added or changed,"
  560. 5620  DATA "or whenever changes are made which re-"
  561. 5630  DATA "identify spouses."
  562. 5640  DATA ".sp"
  563. 5650  DATA "Select the 'indexmar' program, and make"
  564. 5660  DATA "sure that the data diskette is in"
  565. 5670  DATA "Drive 'a:'.  Then press any key to"
  566. 5680  DATA "continue."
  567. 5690  DATA ".sp"
  568. 5700  DATA "A data file named 'mindex' will be"
  569. 5710  DATA "created on the data diskette in Drive"
  570. 5720  DATA "'a:'."
  571. 5730  DATA ".pa"
  572. 5740  DATA ".h3 Operating the display program."
  573. 5750  DATA "Before running the display program,"
  574. 5760  DATA "the user should know that any changes"
  575. 5770  DATA "that he has made to the data files may"
  576. 5780  DATA "have made his indexes out-of-date."
  577. 5790  DATA "This will have happened if the user"
  578. 5800  DATA "has entered a new person, a new"
  579. 5810  DATA "marriage, a new relationship (such as"
  580. 5820  DATA "a reference to a parent), a new"
  581. 5830  DATA "birth-date, a new marriage-date, or"
  582. 5840  DATA "a new Name."
  583. 5850  DATA ".sp"
  584. 5860  DATA "The indexes are still correct if the"
  585. 5870  DATA "user has entered new death-dates,"
  586. 5880  DATA "burial-dates, or any information about"
  587. 5890  DATA "locations (cities, counties, states)"
  588. 5900  DATA "of births, deaths, ordinances, etc."
  589. 5910  DATA ".sp"
  590. 5920  DATA "If the indexes are out-of-date, the"
  591. 5930  DATA "user should update them before running"
  592. 5940  DATA "the 'display' program, by running the"
  593. 5950  DATA "'indexper' and 'indexmar' programs."
  594. 5960  DATA ".sp"
  595. 5970  DATA "After selecting the 'display' program,"
  596. 5980  DATA "the user should make sure that the Data"
  597. 5990  DATA "Diskette is in Drive 'a:'.  He should"
  598. 6000  DATA "then press any key to continue."
  599. 6010  DATA ".sp"
  600. 6020  DATA "After the logo is displayed, the user"
  601. 6030  DATA "is asked for the record-number of the"
  602. 6040  DATA "person that he wants to locate.  He"
  603. 6050  DATA "should enter a number which he knows to"
  604. 6060  DATA "be valid."
  605. 6070  DATA ".pa"
  606. 6080  DATA "The personal information about that"
  607. 6090  DATA "person will then be shown on the display."
  608. 6100  DATA ".sp"
  609. 6110  DATA "The user may then enter 'ps' (print"
  610. 6120  DATA "the screen), he may enter 'pc' (for a"
  611. 6130  DATA "pedigree chart), he may enter 'fg' (for"
  612. 6140  DATA "a family group), he may enter 'o' (for"
  613. 6150  DATA "ordinance information), he may enter 'p'"
  614. 6160  DATA "followed by a valid number (requesting"
  615. 6170  DATA "information about a person), he may enter"
  616. 6180  DATA "'m' followed by a valid number (requesting"
  617. 6190  DATA "information about a marriage), or he may"
  618. 6200  DATA "enter 'q' (asking to quit)."
  619. 6210  DATA ".sp"
  620. 6220  DATA "When the pedigree information appears,"
  621. 6230  DATA "the user may then enter 'ps' (print the"
  622. 6240  DATA "screen, he may enter 'fg' (requesting"
  623. 6250  DATA "a family group), he may enter 'pc'"
  624. 6260  DATA "(asking that the pedigree chart be"
  625. 6270  DATA "re-drawn), he may enter 'l' followed by"
  626. 6280  DATA "a valid number (requesting personal"
  627. 6290  DATA "information about a person on the stated"
  628. 6300  DATA "line), he may enter 'm' followed by a"
  629. 6310  DATA "valid number (requesting information"
  630. 6320  DATA "about a marriage), or he may enter 'q'"
  631. 6330  DATA "(asking to quit)."
  632. 6340  DATA ".pa"
  633. 6350  DATA "When the family group information appears,"
  634. 6360  DATA "the user may enter 'ps' (print the"
  635. 6370  DATA "screen), he may enter 'f' (asking for the"
  636. 6380  DATA "father), he may enter 'm' (asking for the"
  637. 6390  DATA "mother), he may enter 'p' followed by a"
  638. 6400  DATA "valid number (asking for about a person),"
  639. 6410  DATA "he may enter 'c' followed by a valid"
  640. 6420  DATA "number (asking for information about a"
  641. 6430  DATA "child), he may enter 'm' followed by a"
  642. 6440  DATA "valid number (requesting information"
  643. 6450  DATA "about a marriage, or he may enter 'q'"
  644. 6460  DATA "(asking to quit)."
  645. 6470  DATA ".sp"
  646. 6480  DATA "When the ordinance information appears,"
  647. 6490  DATA "The user may then enter 'ps' (print"
  648. 6500  DATA "the screen), he may enter 'pc' (for a"
  649. 6510  DATA "pedigree chart), he may enter 'fg' (for"
  650. 6520  DATA "a family group), he may enter 'o' (for"
  651. 6530  DATA "ordinance information), he may enter 'p'"
  652. 6540  DATA "followed by a valid number (requesting"
  653. 6550  DATA "information about a person), he may enter"
  654. 6560  DATA "'m' followed by a valid number (requesting"
  655. 6570  DATA "information about a marriage), or he may"
  656. 6580  DATA "enter 'q' (asking to quit)."
  657. 6590  DATA ".pa"
  658. 6600  DATA ".h2 Operating the Pedigree Program"
  659. 6610  DATA "After selecting the 'pedigree' program,"
  660. 6620  DATA "the user should make sure that the"
  661. 6630  DATA "data diskette is in Drive 'a:'.  He"
  662. 6640  DATA "should then press any key to continue."
  663. 6650  DATA ".sp"
  664. 6660  DATA "He should then follow any instructions"
  665. 6670  DATA "which appear at the bottom of the display."
  666. 6680  DATA ".sp"
  667. 6690  DATA "Note:  The pedigree program was designed"
  668. 6700  DATA "to use a form which is Copyrighted, 1966,"
  669. 6710  DATA "The Genealogical Society of the Church of"
  670. 6720  DATA "Jesus Christ of Latter Day Saints, Inc."
  671. 6730  DATA "Stock #GA-054"
  672. 6740  DATA ".sp"
  673. 6750  DATA "If such a form is not available, the"
  674. 6760  DATA "pedigree chart can be printed on any"
  675. 6770  DATA "available printer paper."
  676. 6780  DATA ".pa"
  677. 6790  DATA ".h2 Operating the Family Program"
  678. 6800  DATA "After selecting the 'family' program,"
  679. 6810  DATA "the user should make sure that the"
  680. 6820  DATA "data diskette is in Drive 'a:'.  He"
  681. 6830  DATA "should then press any key to continue."
  682. 6840  DATA ".sp"
  683. 6850  DATA "He should then follow any instructions"
  684. 6860  DATA "which appear at the bottom of the"
  685. 6870  DATA "display."
  686. 6880  DATA ".sp"
  687. 6890  DATA "Note:  The family program was designed"
  688. 6900  DATA "to use a Family Group Record form, which"
  689. 6910  DATA "was copyrighted 1972 by the Genealogical"
  690. 6920  DATA "Society of the Church of Jesus Christ of"
  691. 6930  DATA "Latter Day Saints, Inc.  Stock #GA-032."
  692. 6940  DATA ".sp"
  693. 6950  DATA "If such a form is not available, the"
  694. 6960  DATA "family group can be printed on any"
  695. 6970  DATA "available printer paper."
  696. 6980  DATA ".h3 Operating the Descend Program"
  697. 6990  DATA "After selecting the 'descend' program,"
  698. 7000  DATA "the user should make sure that the"
  699. 7010  DATA "data diskette is in Drive 'a:'.  He"
  700. 7020  DATA "should then press any key to continue."
  701. 7030  DATA ".sp"
  702. 7040  DATA "He should then follow any instructions"
  703. 7050  DATA "which appear at the bottom of the"
  704. 7060  DATA "display."
  705. 7070  DATA ".pa"
  706. 7080  DATA ".h3 Operating the other programs."
  707. 7090  DATA "After selecting one of the other pro-"
  708. 7100  DATA "grams, the user should make sure that"
  709. 7110  DATA "the data diskette is in Drive 'a:'.  He"
  710. 7120  DATA "should then press any key to continue."
  711. 7130  DATA ".sp"
  712. 7140  DATA "Note:  See the Table of Contents for the"
  713. 7150  DATA "names of the other programs."
  714. 7160  DATA ".sp"
  715. 7170  DATA "After the logo is displayed, the user"
  716. 7180  DATA "observes the information that is being"
  717. 7190  DATA "shown on the display screen, and waits"
  718. 7200  DATA "for the program to complete."
  719. 7210  DATA ".pa"
  720. 7220  DATA ".h2 HOW TO STOP."
  721. 7230  DATA "The user may stop at any time, by"
  722. 7240  DATA "pressing (and holding down) the Function"
  723. 7250  DATA "(FN) key, and then pressing the Break"
  724. 7260  DATA "(B) key on the PCjr."
  725. 7270  DATA ".sp"
  726. 7280  DATA "The user may stop at any time, by"
  727. 7290  DATA "pressing (and holding down) the control"
  728. 7300  DATA "(Ctrl) key, and then pressing the Break"
  729. 7310  DATA "key on the PC, PPC, or PC/XT."
  730. 7320  DATA ".sp"
  731. 7330  DATA ".h3 Stopping the Update Programs."
  732. 7340  DATA "The user may stop one of the update"
  733. 7350  DATA "programs (updatper, updatmar, or"
  734. 7360  DATA "updatord) by requesting an update of"
  735. 7370  DATA "record 0."
  736. 7380  DATA ".h3 Stopping the Display Program."
  737. 7390  DATA "The user may stop the display program"
  738. 7400  DATA "by typing 'q' or 'quit' when he is asked"
  739. 7410  DATA "for his next action, or he may type"
  740. 7420  DATA "'p0', to request person-number 0."
  741. 7430  DATA ".h3 Stopping the Pedigree Program."
  742. 7440  DATA "The user may stop the pedigree program"
  743. 7450  DATA "by asking for a printout of the pedigree"
  744. 7460  DATA "for person-number 0."
  745. 7470  DATA ".pa"
  746. 7480  DATA ".h3 Stopping the Family Program."
  747. 7490  DATA "The user may stop the family program"
  748. 7500  DATA "by asking for a printout of the family"
  749. 7510  DATA "whose marriage-number is 0."
  750. 7520  DATA ".h3 Stopping the Descend Program."
  751. 7530  DATA "The user may stop the descend program"
  752. 7540  DATA "by asking for a printout of the person"
  753. 7550  DATA "whose person-number is 0."
  754. 7560  DATA ".h3 Stopping the Other Programs."
  755. 7570  DATA "The other programs may only be stopped"
  756. 7580  DATA "with the 'function-break' or the"
  757. 7590  DATA "'control-break' sequence, as indicated"
  758. 7600  DATA "above.  However, the user is cautioned"
  759. 7610  DATA "that if he does this while writing new"
  760. 7620  DATA "indexes to the diskette (during the"
  761. 7630  DATA "running of the 'indexpc' or 'indexmar'"
  762. 7640  DATA "programs), the index that is currently"
  763. 7650  DATA "being written may be destroyed, and"
  764. 7660  DATA "will have to be re-built before the"
  765. 7670  DATA "'display', 'pedigree', 'family', and"
  766. 7680  DATA "'alphamar' programs are run."
  767. 7690  DATA ".sp"
  768. 7700  DATA "The damaged index can be re-built by"
  769. 7710  DATA "re-running the 'indexpc' or 'indexmar'"
  770. 7720  DATA "program which was stopped with the"
  771. 7730  DATA "'function-break' or 'control-break'"
  772. 7740  DATA "sequence."
  773. 7745  DATA ".pa"
  774. 7750  DATA ".eof"
  775. 7760  END
  776.